home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19970626-19970929 / 000303_news@newsmaster….columbia.edu _Sat Sep 6 13:01:19 1997.msg < prev    next >
Internet Message Format  |  2020-01-01  |  8KB
  1. Return-Path: <news@newsmaster.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id NAA06657
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Sat, 6 Sep 1997 13:01:05 -0400 (EDT)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id NAA00220
  7.     for kermit.misc@watsun; Sat, 6 Sep 1997 13:00:59 -0400 (EDT)
  8. Path: news.columbia.edu!panix!howland.erols.net!newsxfer3.itd.umich.edu!agate!news.Stanford.EDU!nntp.Stanford.EDU!taal.Stanford.EDU!stew
  9. From: stew@taal.Stanford.EDU (Stewart Levin)
  10. Newsgroups: comp.protocols.kermit.misc
  11. Subject: Announce: xtdialer - menu-based kermit dialing
  12. Date: 6 Sep 1997 16:46:54 GMT
  13. Organization: Stanford Exploration Project
  14. Lines: 176
  15. Sender: Stewart.A.Levin@newsmaster.cc.columbia.edu
  16. Distribution: world
  17. Message-ID: <5us1du$d4b$1@nntp.Stanford.EDU>
  18. NNTP-Posting-Host: taal.stanford.edu
  19. Summary: Dialing automated telephone response systems w/ pull-down menus
  20. Keywords: kermit xtpanel automated telephone
  21. Xref: news.columbia.edu comp.protocols.kermit.misc:7624
  22.  
  23.  
  24.  
  25. xtdialer provides a graphical tool with pull-down menus
  26. for using kermit to dial up and interact with an automated
  27. telephone response system.  I use it to check on mutual
  28. fund balances.
  29.  
  30. xtdialer is built as an "xtpanel" script.  Xtpanel is
  31. available from the X11R6 contrib files and from
  32. ftp://sepftp.stanford.edu/pub/Xtpanel/.
  33.  
  34. I have place the attached short shar file on my web page
  35. http://sepwww.stanford.edu/oldsep/stew/index.html.
  36.  
  37. Enjoy!
  38.  
  39. - Stewart A. Levin
  40. stew_at_sep.stanford.edu
  41.  
  42. -----------CUT HERE -----------------------------------------
  43. #!/bin/sh
  44. # This is a shell archive (produced by GNU sharutils 4.2).
  45. # To extract the files from this archive, save it to some FILE, remove
  46. # everything before the `!/bin/sh' line above, then type `sh FILE'.
  47. #
  48. # Made on 1997-09-06 11:17 CDT by <stew@salevin>.
  49. # Source directory was `/home/stew/xtdialer.dir/temp'.
  50. #
  51. # Existing files will *not* be overwritten unless `-c' is specified.
  52. # This format requires very little intelligence at unshar time.
  53. # "if test", "echo", "mkdir", and "sed" may be needed.
  54. #
  55. # This shar contains:
  56. # length mode       name
  57. # ------ ---------- ------------------------------------------
  58. #    933 -rw-rw-r-- xtdialer.dir/xtdialer.script
  59. #    270 -rw-rw-r-- xtdialer.dir/services/Fidelity
  60. #    271 -rw-rw-r-- xtdialer.dir/services/Scudder
  61. #     67 -rw-rw-r-- xtdialer.dir/kermscript
  62. #   1499 -rw-rw-r-- xtdialer.dir/README
  63. #
  64. echo=echo
  65. if mkdir _sh00406; then
  66.   $echo 'x -' 'creating lock directory'
  67. else
  68.   $echo 'failed to create lock directory'
  69.   exit 1
  70. fi
  71. # ============= xtdialer.dir/xtdialer.script ==============
  72. if test ! -d 'xtdialer.dir'; then
  73.   $echo 'x -' 'creating directory' 'xtdialer.dir'
  74.   mkdir 'xtdialer.dir'
  75. fi
  76. if test -f 'xtdialer.dir/xtdialer.script' && test "$first_param" != -c; then
  77.   $echo 'x -' SKIPPING 'xtdialer.dir/xtdialer.script' '(file already exists)'
  78. else
  79.   $echo 'x -' extracting 'xtdialer.dir/xtdialer.script' '(text)'
  80.   sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/xtdialer.script' &&
  81. Xvar={ name=sourcedir value="/home/stew/xtdialer.dir" }
  82. Xstartup={ action="ASSIGN sourcedir `echo $${XTDIALER-$(sourcedir)}`" }
  83. X
  84. Xhbox={ name=noborder
  85. X    message={ value="XTDIALER" name=title }
  86. X    button={ label="Quit"
  87. X        action="ASSIGN kermit OUTPUT ATH0Z\13\n"
  88. X        action="ASSIGN kermit EXIT\n"
  89. X        action=QUIT }
  90. X     }
  91. X
  92. Xoutput={ name=kermit stream="$(sourcedir)/kermscript" separator="\n" }
  93. Xstartup={ 
  94. X    action="ASSIGN kermit SET EXIT WARNING OFF\13\n"
  95. X    }
  96. Xhbox={ name=noborder
  97. X    menubutton={ label="Service" itemlist={ list=`ls $(sourcedir)/services` } 
  98. X        action="ASSIGN service $(val)" 
  99. X        action="DESTROY commands"
  100. X        action="CREATE service menubutton={ name=commands label=""Commands"" `cat $(sourcedir)/services/$(val)` action=""ASSIGN kermit OUTPUT $$(val)\13\n"" }" }
  101. X    message={ name=service value="None" }
  102. X
  103. X    menubutton={ label="Commands" name=commands
  104. X         item={ label="None" value=" " }
  105. X               }
  106. X}
  107. SHAR_EOF
  108.   : || $echo 'restore of' 'xtdialer.dir/xtdialer.script' 'failed'
  109. fi
  110. # ============= xtdialer.dir/services/Fidelity ==============
  111. if test ! -d 'xtdialer.dir/services'; then
  112.   $echo 'x -' 'creating directory' 'xtdialer.dir/services'
  113.   mkdir 'xtdialer.dir/services'
  114. fi
  115. if test -f 'xtdialer.dir/services/Fidelity' && test "$first_param" != -c; then
  116.   $echo 'x -' SKIPPING 'xtdialer.dir/services/Fidelity' '(file already exists)'
  117. else
  118.   $echo 'x -' extracting 'xtdialer.dir/services/Fidelity' '(text)'
  119.   sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/services/Fidelity' &&
  120. Xitem={ label="Fidelity 800" value="ATM1L3S15=0DP18005445555;" }
  121. Xitem={ label="Fidelity Login" value="ATDTsocsecnum+pin#;" }
  122. Xitem={ label="Account Balances" value="ATDT*63991;" }
  123. Xitem={ label="Recent Activities" value="ATDT*6421;" }
  124. Xitem={ label="Hangup" value="ATH0Z" }
  125. SHAR_EOF
  126.   : || $echo 'restore of' 'xtdialer.dir/services/Fidelity' 'failed'
  127. fi
  128. # ============= xtdialer.dir/services/Scudder ==============
  129. if test -f 'xtdialer.dir/services/Scudder' && test "$first_param" != -c; then
  130.   $echo 'x -' SKIPPING 'xtdialer.dir/services/Scudder' '(file already exists)'
  131. else
  132.   $echo 'x -' extracting 'xtdialer.dir/services/Scudder' '(text)'
  133.   sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/services/Scudder' &&
  134. Xitem={ label="Scudder 800" value="ATM1L3S15=0DP18003432890;" }
  135. Xitem={ label="Scudder Login" value="ATDT1,socsecnum,pin#;" }
  136. Xitem={ label="CIT Balance" value="ATD*#,1,2;" }
  137. Xitem={ label="CIT Last Dividend" value="ATD*#,1,3,065,,1;" }
  138. Xitem={ label="Hangup" value="ATH0Z" }
  139. SHAR_EOF
  140.   : || $echo 'restore of' 'xtdialer.dir/services/Scudder' 'failed'
  141. fi
  142. # ============= xtdialer.dir/kermscript ==============
  143. if test -f 'xtdialer.dir/kermscript' && test "$first_param" != -c; then
  144.   $echo 'x -' SKIPPING 'xtdialer.dir/kermscript' '(file already exists)'
  145. else
  146.   $echo 'x -' extracting 'xtdialer.dir/kermscript' '(text)'
  147.   sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/kermscript' &&
  148. Xkermit -z -q -m gateway-telepath -l /dev/modem -b 2400 > /dev/null
  149. SHAR_EOF
  150.   : || $echo 'restore of' 'xtdialer.dir/kermscript' 'failed'
  151. fi
  152. # ============= xtdialer.dir/README ==============
  153. if test -f 'xtdialer.dir/README' && test "$first_param" != -c; then
  154.   $echo 'x -' SKIPPING 'xtdialer.dir/README' '(file already exists)'
  155. else
  156.   $echo 'x -' extracting 'xtdialer.dir/README' '(text)'
  157.   sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/README' &&
  158. XXTDIALER: X-Window menu-based telephone dialing
  159. X
  160. XThis package contains a short xtpanel (X11R6 contrib or
  161. Xftp://sepftp.stanford.edu) script and sample services
  162. Xdirectory that allow you to use your computer modem to dial
  163. Xthe touchtone codes needed to retrieve information from
  164. Xautomated telephone systems.  I use it to check on
  165. Xmutual fund balances.  It is freely available for
  166. Xyour personal use.
  167. X
  168. XPlace the source and services directory tree in any
  169. Xconvenient place and edit the xtdialer.script file
  170. Xto initialize the corresponding "sourcedir" variable
  171. Xto that location.  (The environment variable XTDIALER
  172. Xmay be used to override this default.) Then create a
  173. Xone-line script or alias to invoke xtpanel with that
  174. Xinput script. Finally, modify the one line "kermscript" 
  175. Xfile to set (or remove) the modem type, line and speed
  176. Xflags on the kermit command line.
  177. X
  178. Xxtdialer uses the $(sourcedir)/services subdirectory
  179. Xto set its menu choices.  It treats the name of each
  180. Xfile in that subdirectory as an automated dialup
  181. Xservice and extracts a menu of commands from the
  182. Xcorresponding file when its name is selected.
  183. X
  184. XThe format of a service file is a list of items:
  185. X
  186. Xitem={ label="Fidelity 800" value="ATM1L3S15=0DT1800544555;" }
  187. X
  188. XNote that the value fields are simply modem command strings,
  189. Xgenerally ones that dial touchtone sequences.  The trailing
  190. Xsemicolon is part of the dialing string. (It tells a Hayes-
  191. Xcompatible modem not to wait for a carrier tone.)
  192. X
  193. X- Stewart A. Levin
  194. X  stew@sep.stanford.edu
  195. SHAR_EOF
  196.   : || $echo 'restore of' 'xtdialer.dir/README' 'failed'
  197. fi
  198. rm -fr _sh00406
  199. exit 0